home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / wheel.wwModel / tire.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  566 b   |  21 lines
  1. set tire(thickness) {0.100000};
  2. set tire(radius) {2.0};
  3. set tire(color) {.1 .1 .1};
  4.  
  5. EveCmd {set rim(minorRadius) [expr {1.2 * $tire(thickness)}]}
  6. {set rim(majorRadius) [expr {$tire(radius) - [expr {.8 * $tire(thickness)}]}]}
  7. set rim(color) {0.924665 0.901624 1.000000};
  8.  
  9. startShape wheel
  10.     startShape tire
  11.         Surface $rubber
  12.         EveCmd {Color $tire(color)}
  13.         EveCmd {Torus $tire(radius) $tire(thickness) 90 270 360}
  14.     endShape
  15.     startShape rim
  16.         Surface $metal
  17.         EveCmd {Color $rim(color)}
  18.         EveCmd {Torus $rim(majorRadius)  $rim(minorRadius) 0 0 360}
  19.     endShape
  20. endShape
  21.